home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d963.lha / SIOD / scm / timer.scm < prev    next >
Text File  |  1993-08-19  |  230b  |  8 lines
  1. (define time-of-day runtime)
  2.  
  3. (define (timer proc . args)
  4.         (let* ((start (runtime))
  5.                (ans (apply proc args))
  6.                (end (runtime)))
  7.               (writeln "Time = " (- end start) ", Answer = " ans)))
  8.